#!/usr/bin/perl -w
#print "Content-type: text/plain\n\n";
#use strict;

my $var1 = 'Hello World';
my $i=0;
while (<>) {
	print unless /^#/;
	print "\n";
	++$i;
	last if ($i == 2);
}

print $_;
exit;
